home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 08-03.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  647 b   |  40 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. CONST Pages = 4
  6.  
  7. SetMemStatus& = SETMEM(-(Pages - 1) * (4096 + 16))
  8.  
  9. IF FGtestmode(7, Pages) = 0 THEN
  10.    PRINT "This program requires monochrome."
  11.    STOP
  12. END IF
  13.  
  14. OldMode = FGgetmode
  15. FGsetmode 7
  16. FGcursor 0
  17.  
  18. FOR Page = 0 TO Pages - 1
  19.    Status = FGallocate(Page)
  20.    FGsetpage Page
  21.    FGsetcolor 7
  22.    FGrect 0, FGgetmaxx, 0, FGgetmaxy
  23.    FGsetattr 0, 7, 0
  24.    FGlocate 12, 37
  25.    CharString$ = "Page" + STR$(Page)
  26.    FGtext CharString$, 6
  27. NEXT
  28.  
  29. FOR Page = 0 TO Pages - 1
  30.    FGsetvpage Page
  31.    FGwaitkey
  32.    Status = FGfreepage(Page)
  33. NEXT
  34.  
  35. FGsetmode OldMode
  36. FGreset
  37.  
  38. END
  39.  
  40.